﻿Namespace Collections
    Public Class ReadOnlyCollection(Of T)
        Inherits GenericCollection(Of T)

        Public Sub New(ByVal items As IEnumerable(Of T))
            MyBase.New(True)
            For Each Item As T In items
                List.Add(Item)
            Next
        End Sub
    End Class
End Namespace